home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / p.chevrel / wordworth5stuff / etiquettes.rexx < prev    next >
OS/2 REXX Batch file  |  1977-12-31  |  1KB  |  56 lines
  1.  
  2. /* Etiquettes.rexx pour Wordworth 5.0
  3. Version 1.0
  4.  
  5. Créateur d'étiquettes
  6. Creador de etiquetas
  7. Label maker
  8.  
  9. Pascal Chevrel, mars 1997 v1.0
  10. email : chevrelburo@magic.fr
  11.  
  12. Il vous faut charger le document Wordworth 'Etiquettedoc' avant la macro
  13. Es preciso cargar el documento Wordworth 'cartedoc' antes de la macro
  14. You have to load the 'cartedoc' wordworth document before launching this arexx script
  15.  
  16.  
  17. Si cette macro vous est utile, envoyez moi un courrier électronique ou une carte postale de votre ville
  18. Si te resulta útil esta macro, envíame un correo electrónico o un postal de tu pueblo
  19. If you find this script useful, e-mail me or send me a postcard from your place
  20.  
  21. */
  22.  
  23. options results
  24. Selectall
  25. copy
  26.  
  27. New
  28. address value result
  29.  
  30. L=0.38
  31. H=0
  32.  
  33. Do i=1 to 21
  34.  
  35. drawtextframe 1 L"cm" H+2.10"cm" "6.50cm" "3.80cm" "0.1cm" "0.1cm" "0.1cm" "0.1cm" 
  36. TRANSPARENT 0
  37. addi=result
  38. Activatetextframe addi
  39.  
  40. Paste
  41.  
  42. H = H + 3.78
  43.  
  44. IF i = 7 THEN DO
  45.   L = 7.25
  46.   H = 0
  47.   END
  48.  
  49. IF i= 14 THEN DO
  50.   L = 14.15
  51.   H = 0
  52.   END
  53.  
  54.  
  55. End
  56.